#include <graphics.h>
#include <time.h>
#include <conio.h>


IMAGE	g_Block[16];		// 拼图碎片
byte	g_Map[4][4];		// 游戏地图（存储了每个碎片的下标）
byte	g_EmptyX, g_EmptyY;	// 当前空格的位置
long	g_timeStart;		// 游戏开始时间


// 初始化拼图
void InitBlock()
{
	// 初始化拼图碎片
	wchar_t s[3];
	for (int i = 0; i < 16; i++)
	{
		g_Block[i].Resize(100, 100);
		SetWorkingImage(&g_Block[i]);

		// 背景
		setbkcolor(BLACK);
		cleardevice();
		setfillcolor(HSVtoRGB(360.0 * i / 16, 1, 0.5));
		solidrectangle(2, 2, 98, 98);
		// 文字
		settextstyle(64, 0, _T("Arial"), 0, 0, 400, false, false, false, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH);
		setbkmode(TRANSPARENT);
		settextcolor(WHITE);
		_itow_s(i + 1, s, 10);
		outtextxy((100 - textwidth(s)) / 2, 18, s);
	}
	// 恢复绘图目标
	SetWorkingImage(NULL);
}


// 显示游戏界面
void Draw()
{
	for (int y = 0; y < 4; y++)
		for (int x = 0; x < 4; x++)
		{
			if (g_Map[x][y] != 15)
				putimage(x * 100 + 40, y * 100 + 40, &g_Block[g_Map[x][y]]);
			else
			{
				// 最后一片拼图暂时不显示
				setfillcolor(BLACK);
				solidrectangle(x * 100 + 40, y * 100 + 40, x * 100 + 139, y * 100 + 139);
			}
		}

	// 输出游戏时间
	settextstyle(36, 0, L"微软雅黑", 0, 0, 400, false, false, false, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH);
	settextcolor(WHITE);
	long curtime = clock();
	wchar_t s[20];
	swprintf_s(s, L"%.2f 秒　　", (curtime - g_timeStart) / (double)CLOCKS_PER_SEC);
	outtextxy(480, 40, L"游戏用时");
	outtextxy(480, 90, s);
}


// 移动拼图
void MoveTo(int newx, int newy)
{
	g_Map[g_EmptyX][g_EmptyY] = g_Map[newx][newy];
	g_Map[newx][newy] = 15;
	g_EmptyX = newx;
	g_EmptyY = newy;
}


// 将拼图随机打乱
void RandMap()
{
	// 初始化目标拼图
	for (int i = 0; i < 16; i++)
		g_Map[i % 4][i / 4] = i;
	g_EmptyX = 3;
	g_EmptyY = 3;

	// 打乱拼图顺序。注：只能相邻交换，否则可能无解
	for (int i = 0; i < 1000; i++)
	{
		// 产生随机方向
		int n = (rand() % 4) * 2 + 1;
		int dx = n / 3 - 1;
		int dy = n % 3 - 1;
		// 移动空位
		if (g_EmptyX + dx >= 0 && g_EmptyX + dx < 4 && g_EmptyY + dy >= 0 && g_EmptyY + dy < 4)
			MoveTo(g_EmptyX + dx, g_EmptyY + dy);
	}
}


// 判断拼图是否成功
bool IsWin()
{
	for (int i = 0; i < 16; i++)
		if (g_Map[i % 4][i / 4] != i)
			return false;
	return true;
}


// 进行游戏
void Play()
{
	ExMessage msg;
	while (!IsWin())	// 游戏主循环
	{
		// 处理鼠标和键盘控制
		while (peekmessage(&msg, EM_MOUSE | EM_KEY))
		{
			switch (msg.message)
			{
			case WM_LBUTTONDOWN:
				if (msg.x >= 40 && msg.x < 440 && msg.y >= 40 && msg.y < 440)
				{
					int newx = (msg.x - 40) / 100;
					int newy = (msg.y - 40) / 100;

					if (abs(g_EmptyX - newx) + abs(g_EmptyY - newy) == 1)
						MoveTo(newx, newy);
				}
				break;

			case WM_KEYDOWN:
				switch (msg.vkcode)
				{
				case VK_LEFT:
				case 'A':
					if (g_EmptyX > 0) MoveTo(g_EmptyX - 1, g_EmptyY);	// 左
					break;

				case VK_UP:
				case 'W':
					if (g_EmptyY > 0) MoveTo(g_EmptyX, g_EmptyY - 1);	// 上
					break;

				case VK_RIGHT:
				case 'D':
					if (g_EmptyX < 3) MoveTo(g_EmptyX + 1, g_EmptyY);	// 右
					break;

				case VK_DOWN:
				case 'S':
					if (g_EmptyY < 3) MoveTo(g_EmptyX, g_EmptyY + 1);	// 下
					break;
				}
				break;
			}
		}

		// 显示游戏界面
		Draw();
		Sleep(20);
	}
}


// 游戏胜利
void Win()
{
	putimage(g_EmptyX * 100 + 40, g_EmptyY * 100 + 40, &g_Block[15]);
}


// 主函数
int main()
{
	srand(clock());							// 生成随机种子
	HWND wnd = initgraph(640, 480);			// 创建绘图窗口
	InitBlock();							// 初始化拼图

	do
	{
		RandMap();							// 随机打乱地图
		flushmessage(EM_MOUSE | EM_KEY);	// 清空鼠标和键盘缓冲区
		g_timeStart = clock();				// 获取游戏开始时间
		Play();								// 开始游戏
		Win();								// 游戏胜利
	} while (MessageBox(wnd, L"恭喜您成功啦。\n重来一局吗？", L"胜利", MB_YESNO | MB_ICONQUESTION) == IDYES);

	closegraph();
	return 0;
}

